ORDER BY SALESMAN.NAME, INVOICES.ITOTAL DESCENDING;
INTO CURSOR SAMPLE
BROWSE NOMODIFY
text editor
ESCAPE
BIGCHARS
iAPAUSE
sfeCNT
MARQUE1
MENUSYS
INPAUSE
FAKESTAT
iLASERC
EFFECT21
SAMPLEQ
FAKETEXT
OVERNOUT
escape
marque1
menusys
laserc
fakestat
faketext
sampleq
upleft
upright
lowleft
lowright
letterFF
letterFF
ESCAPE
MARQUE1
iMENUSYS
feLASERC
FAKESTAT
FAKETEXT
SAMPLEQ
UPLEFT
iUPRIGHT
LOWLEFT
LOWRIGHT
RUNDEMO
ESCPRESS
OVERNOUT
instrFF
instrFF
instrFF
instrFF
instrFF
instrFF
XSTART
YSTART
iINSTR1
feINSTR2
INSTR3
INSTR4
LENGTH
WIDTH
UPLEFT
UPRIGHT
LOWLEFT
LOWRIGHT
APAUSE
OVERNOUT
ESCOUT
EFFECT21
escape
do escout
do escout
Trace/Debug
letterFF
FoxPro 2.0 - Trace & Debug
FoxPro's Trace window allows you to watch program code as it
executes.
Trace window
Trace window
Trace window
temptrac.prg2
temptrac.prg
dotrace.prg(
temptrac.prg
escape
temptrac
do escout
escape
do escout
Trace window
The Debug window allows you to monitor the values of variables
and expressions while your program is executing.
Debug window
Debug window
Debug window
escape
temptrac
do escout
escape
do escout
temptrac.prg
temptrac.fxp
ESCAPE
eldBIGCHARS
APAUSE
[X] MARQUE1
..MENUSYS
INPAUSE
TEMPTRAC
DOTRACE
'AFILENAME
OVERNOUT
escape
marque1
menusys
laserm
letterFF
letterFF
ESCAPE
eldMARQUE1
MENUSYS
LASERM
X] CNT
..RUNDEMO
temptrac.prg2
temptrac.prg
temptrac.fxp2
temptrac.fxp
TEMPTRAC
ESCPRESS
OVERNOUT
.OVERNOUT
ESCOUT
h
COMPANY
CONTACT
ADDRESS
STATE
PHONE
YTDPURCH
140211st Computers Jeff W. Culbertson 5111 Parkway Brookline MA02146617/232-50531 1509.6742.3396 71.1149 182321st Data Reductions Dennis Johnson 360 Riverview Farm Street New Orleans LA70113504/524-39664 1608.3529.9486 90.0773 120821st Software Systems Ltd. Rance Sivren 23433 Chapel 121 Houston TX77035713/723-12885 2272.0629.7503 95.3662 128401st Survey Robert Hepworth 733 Peeler 86th Dallas TX75234214/243-72475 754.8132.9246 96.8909 A8872A Beck Pertamina Jim Ansarti 4001 Rowed Rd Arlington MA02174617/643-69201 3991.6642.4143 71.1518 A8818A. Arts Computers Darryl Roudebush 3305 Plantation Avenue Melrose MA02176617/662-01571 3922.0442.4563 71.0647 A6459A. Bloomington Biz Phil Putnam 6300 East Drive Tallahassee FL32301904/222-94573 684.4730.4421 84.2850 A6188AZ Inc Tom Totah 2041 Wilshire Blvd Taunton MA02780617/823-51801 370.7341.8980 71.1007 A5181Abbymark Velonex Isador Sweet 2139 Bridge Sciller Dallas TX75201214/922-49275 1390.1732.7815 96.7947 A3964Acres Tree Solutions Russell Kmickle 621 Ferndale Ste Park Sparta NJ07871201/786-07852 272.4840.9882 74.7445 A3882Add Associates Len Silverman 318 N Sante Fe Ave Office L Novato CA94947415/897-28106 5487.4638.1075122.5647 A1046Add Inc Bert Crawford 253 Mitchell St Boulder CO80303303/499-20865 161.7040.0233105.2741 A7249Adder Incorporated Brenda Cartwright 1237 Bering Belleview Warren MI48093313/573-58734 722.2542.4925 83.0373 A3835Adv. Software Barbara H. Martin 600 114th Ave Se A1a Arlington MA02174617/646-79741 4820.5142.4143 71.1518 A3061Advantage Computer School Duane Marshall 3784 Van Dyke Suite Street San Jose CA95131408/946-13176 4635.0137.3317121.8871 A0169Aerial Inc. Lynn Williams 903 Highland Drive Wayne NJ07470201/696-73782 1921.2640.9166 74.2699 A8902Alex County Community Corp Rance Hayden 75 Briar Ave Lanham MD20706301/459-44843 1637.6438.9513 76.9498 A2418Alex Systems Nancy Wright 2416 Idaho Place S. Erie PA16505814/838-31162 8505.0342.1214 80.0870 A0887American Computer Company Dick W Guyton 199 E Main Lubbock TX79413806/799-77065 5496.9933.5821101.8535 A8039American Forum Gui Dupuy Second Motor Seward Santa Barbara CA93105805/682-55806 18.1634.4168119.6980 A9409American Innovations Garret Hill Woodland Howe Ave Zussman Roselle NJ07203201/245-75172 5750.2040.6628 74.2643 A4268Ansari Data Software Wallace Campanelli Black Tower Drive Pittsburg PA15237412/931-08182 778.4740.4391 80.0056 A6992Ansari Produce Oliver Mossangan 648401 Hunting Ridge Ave Spring Valley NY10016914/357-67672 4403.7141.1183 74.1521 A0516Applied Telephone Realtors Michael Cumming 2232 Carlton Hills Place Newtown Square PA19073215/359-27692 1393.3239.9922 75.4080 A4062Aspen Planning & Inc. Gary Erickson 148 Charleston Avenue Tulsa OK74133918/254-31045 5330.9736.0504 95.7929 A8048Aspen Technology Mel Colby 301 Broadway Suite Place DeWitt IA52742319/659-82854 3560.4441.8251 90.5425 A8040Assoc American Chiminey Survey Elizebeth Pitts 121 Lady Ellen 1267 Excelsior MN55331612/471-97264 7159.0544.8993 93.5706 A7319Assoc Strong Dick Nay 11430 Z St Belleville NJ07109201/751-36002 1321.7240.7925 74.1507 A2695Atec Data Service Randy Keji 4206 S Hardy Drive Santa Clara CA95051408/246-53536 514.9837.3317121.8871 A9541Automated Mayo Miley Bill Hopkins 521 Whitney 415 Orange CA92666714/540-60626 2276.6933.7048117.8831 A6294Award Ammonia Greenhouses Tony Lee Box South Court Boston MA02103617/482-46931 3365.7942.3570 71.0555 A6223Azimuth Bavis & Systems Chuck Heitmeier 17610 Conesus Lake Avenue San Francisco CA94105415/989-16036 5010.5437.7894122.4041 A1925Azimuth Corp Al Reetz 232 Mt. Diablo Drive San Diego CA92131619/271-85186 7144.6732.9142117.1269 B9278B-J Astra Phil Wallace 226 John St. Ronkonkoma NY11779516/981-92972 1347.1940.8247 73.1045 B9475Balance Computing Systems Jay Schulmann 1215 Dalby Essex Stamford CT06901203/324-68561 471.7541.0552 73.5359 B0407Battery Weaver Brian Case 4691 Eubank Blvd. N. Dickens S.San FranciscoCA94080415/952-77616 4984.4337.6394122.4131 B9390Bechtel's Department Inc. Bill Driemeir 4001 Avenue Houston TX77057713/977-69675 1637.2529.7503 95.3662 B2437Bedford Office Solutions Harry Grimm 4640 Ottamy Way Hauppauge NY11788516/582-28612 8165.4840.7928 73.1984 B1455Bell Assoc. Mark Nelson 34 Keith Cherry La Plata MD20646301/932-81413 2240.1638.6258 76.9034 B2827Belmar Fishing Systems Mike Ozer 327 Poplar Ste #2025 Menlo Park CA94025415/323-24696 3422.6837.4500122.1557 B0777Belmar Tronixs Computer Compuserve Andy Rigney 2239 University Hines Santa Monica CA90405213/452-93696 2516.6833.9972118.4198 B1180Betty's Bit-Stacking Equipment John Springer 304 Center 1267 A Portland OR97201503/225-16476 1370.0845.5228122.6654 B5806Betty Microtactics Dorit Kenes 2645 A Sargent Alfred Ave. Honolulu HI96814808/526-10456 2982.7021.3069157.8583 B4048Big Incorporated Bert Dalgleish 49 Rose Lover N. Hollywood CA91602818/762-58866 1591.6834.1671118.3711 B2909Big Masters William Shapiro 1209 West 4th Street Chester PA19014215/874-65012 1024.4939.8512 75.3569 B2078Biggs Anderson Bill English 2172 W. A Street Atlanta GA30309800/241-87023 1826.9233.7947 84.4064 B6752Blake Data Seegmiller Dick Walsh Oakland East Information Delray Beach FL33444305/732-12963 179.1426.4611 80.0731 B2426Blake Inc. Bob Dot 445 Fairway 202 Daly City CA94015415/992-07106 444.7937.7894122.4041 B8679Blue P Compuclassics Jerry Moore 1440 East Lancaster Impressa Oceanport NJ07757201/389-11212 4158.4540.3070 74.0583 B3772Blue Solutions John Miller 3305 Industrial Way 17 New York NY10025212/316-28982 3325.9940.7413 73.9895
OBJTYPE
OBJCODE
HEIGHT
WIDTH
STYLE
PICTURE
ORDER
UNIQUE
COMMENT
ENVIRON
BOXCHAR
FILLCHAR
FLOAT
STRETCH
NOREPEAT
RESETRPT
PAGEBREAK
RESETPAGE
SWAPHEADER
SWAPFOOTER
EJECTBEFOR
EJECTAFTER
PLAIN
SUMMARY
ADDALIAS
OFFSET
TOPMARGIN
BOTMARGIN
TOTALTYPE
RESETTOTAL
1 0 66 80 F F TFFFF 0 0 0 9 1 5 9 3 16 1 T FFFF 0 9 4 1 9 5 3 9 7 1 9 8 4 F 5 0 17 1 57 1 5 F 8 0 18 1 62 1 4 N FFF 0 0 0 8 0 19 1 1 1 8 D FFF 0 0 0 8 0 20 6 0 1 19 C FFF 0 0 0 8 0 21 6 20 1 8 N FFF 0 0 0 8 0 22 6 29 1 19 C FFF 0 0 0 5 0 23 3 34 1 7 F 8 0 24 6 49 1 18 C FFF 0 0 0 5 0 25 3 53 1 7 F 5 0 26 3 2 1 15 F 5 0 27 3 21 1 5 F 5 0 28 1 29 1 21 F 7 4 7 20 1 8
F 8 0 29 8 20 1 8 N FFF 0 2 3 5 0 30 13 4 1 12 F 8 0 31 13 20 1 8 N FFF 0 2 0 7 4 12 18 3 12
F 7 4 2 0 3 67
F
"Page "
_PAGENO
DATE()
itotal
company
"Company"
contact
"Contact"u
"Salesman's Name"
"Total"d
"Top Sales by Salesman"
itotal
"Report Total"
itotal
MONOFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
letterFF
STARTX
STARTY
INSTRING
CURENTY
CURLET
COLORVAR
BIGCHARS
ITOTAL
COMPANY
CONTACT
PHONE
Bill Diaddigo 3321.66Vaultec Studies Ken Bott 614/382-9499 Bill Diaddigo 2615.58Mixing Systems & Company Larry Locey 219/865-6010 Bob Wubben 3160.93Univ Diego Corp Dave Mccarthy 415/573-5167 Bob Wubben 3024.57Oil & Gallery Paul Schuartz 415/426-8117 Bob Wubben 2827.62Hammerman Systems Paul Dixon 213/532-2286 Bob Wubben 2721.19Atec Data Service Randy Keji 408/246-5353 Carolyn Macioce 2538.18The Automated Associates Ann Casey 214/631-8458 Carolyn Macioce 2525.09Herring Inc. Bruce Smith 505/842-9770 Daniel Small 3160.93Univ Diego Corp Dave Mccarthy 415/573-5167 Daniel Small 3024.57Oil & Gallery Paul Schuartz 415/426-8117 Daniel Small 2827.62Hammerman Systems Paul Dixon 213/532-2286 Daniel Small 2721.19Atec Data Service Randy Keji 408/246-5353 E. Faulkner 2726.63Comsof State DSSD Mike Murray 305/444-7594 Fuji Retell 2538.18The Automated Associates Ann Casey 214/631-8458 Fuji Retell 2525.09Herring Inc. Bruce Smith 505/842-9770 Jan Buoniconti 3160.93Univ Diego Corp Dave Mccarthy 415/573-5167 Jan Buoniconti 3024.57Oil & Gallery Paul Schuartz 415/426-8117 Jan Buoniconti 2827.62Hammerman Systems Paul Dixon 213/532-2286 Jan Buoniconti 2721.19Atec Data Service Randy Keji 408/246-5353 Jim Surbrook 2726.63Comsof State DSSD Mike Murray 305/444-7594 John Miller 3321.66Vaultec Studies Ken Bott 614/382-9499 John Miller 2615.58Mixing Systems & Company Larry Locey 219/865-6010 John Savage 3321.66Vaultec Studies Ken Bott 614/382-9499 John Savage 2615.58Mixing Systems & Company Larry Locey 219/865-6010 K. Raszka 3160.93Univ Diego Corp Dave Mccarthy 415/573-5167 K. Raszka 3024.57Oil & Gallery Paul Schuartz 415/426-8117 K. Raszka 2827.62Hammerman Systems Paul Dixon 213/532-2286 K. Raszka 2721.19Atec Data Service Randy Keji 408/246-5353 Keith Sutherland 2726.63Comsof State DSSD Mike Murray 305/444-7594 Ken C Dutcher 2538.18The Automated Associates Ann Casey 214/631-8458 Ken C Dutcher 2525.09Herring Inc. Bruce Smith 505/842-9770 Kim Baer 2726.63Comsof State DSSD Mike Murray 305/444-7594 Mark Kalbfell 3321.66Vaultec Studies Ken Bott 614/382-9499 Mark Kalbfell 2615.58Mixing Systems & Company Larry Locey 219/865-6010 Ms. Cindy DelGado 3160.93Univ Diego Corp Dave Mccarthy 415/573-5167 Ms. Cindy DelGado 3024.57Oil & Gallery Paul Schuartz 415/426-8117 Ms. Cindy DelGado 2827.62Hammerman Systems Paul Dixon 213/532-2286 Ms. Cindy DelGado 2721.19Atec Data Service Randy Keji 408/246-5353 Ned Auch 3321.66Vaultec Studies Ken Bott 614/382-9499 Ned Auch 2615.58Mixing Systems & Company Larry Locey 219/865-6010 Ned Hicks 2726.63Comsof State DSSD Mike Murray 305/444-7594 Paul Powell 2538.18The Automated Associates Ann Casey 214/631-8458 Paul Powell 2525.09Herring Inc. Bruce Smith 505/842-9770 Robert Angelo 2726.63Comsof State DSSD Mike Murray 305/444-7594 Sharon Gifford 3321.66Vaultec Studies Ken Bott 614/382-9499 Sharon Gifford 2615.58Mixing Systems & Company Larry Locey 219/865-6010 Stan Pipe 2538.18The Automated Associates Ann Casey 214/631-8458 Stan Pipe 2525.09Herring Inc. Bruce Smith 505/842-9770 Susan K. Overall 3160.93Univ Diego Corp Dave Mccarthy 415/573-5167 Susan K. Overall 3024.57Oil & Gallery Paul Schuartz 415/426-8117 Susan K. Overall 2827.62Hammerman Systems Paul Dixon 213/532-2286 Susan K. Overall 2721.19Atec Data Service Randy Keji 408/246-5353 Tony Baer 2538.18The Automated Associates Ann Casey 214/631-8458 Tony Baer 2525.09Herring Inc. Bruce Smith 505/842-9770
CATNO
TITLE
PRICE
RATING
XQUALITY
CRITICS
ACQUIRED
SDIGITAL
XDIGITAL
STEREO
SURROUND
LETTERBOX
BLK_WHT
CLOSECAP
SUBTITLED
DUBBED
SILENT
COMMENTARY
SUPPLEMENT
DURATION
SIDES
DESCRIPT
STUDIO
CC1203L Notorious 99.95NR 10719890102T FT T TT101 41946 13Criterion 2 ML101741 Bond - Diamonds Are Forever 39.95PG 8719890103TTTT T 125 31971 MGM/UA 1 ML101744 Fiddler On The Roof 39.95G 8619890104TFTTTT 180 41971 MGM/UA 10 ML101705 How To Succeed in Business Without Really Trying 39.95NR 8719890105TTTT T 122 31967 MGM/UA 10 ML101743 Bond - Spy Who Loved Me, The 31.96PG 10719890106TTTTTT T 129 31977 17MGM/UA 1
Contains lots of supplementary information including a running commentary by Rudy Behlmer. A superb transfer and excellent supplements.
3rd side is in CAV format.
*
*
*
05/29/91 LASER.SPR 10:48:23
*
*
*
*
Author's Name
*
*
Copyright (c) 1991 Company Name
*
Address
*
City, Zip
*
*
Description:
*
This program was automatically generated by GENSCRN.
This illustrates how FoxPro can store large amounts of text in a database. A memo field can be useful for storing descriptions or notes or other text of unknown length. For example, the information in the help file is actually a database with the text stored in a memo field.
Just like this.
Browse
Browse allows you to examine and make changes to a database. You can open a Browse window in any of the following ways:
Choose Browse from the Database menu popup.
Choose the Browse text button in the View window when a database is open in the current work area.
Double-click on a work area that has an open database.
When you use any of these methods, FoxPro performs a BROWSE LAST. The data will be displayed in the Browse window as it appeared before you last closed it. The fields are in the same positions and are the same sizes as the last time the window was open. Any modifications make through dialogs or commands will not be reflected in the display.
When you open a Browse window using the BROWSE command in the Command window or a program file, the Browse window appears in its original form (as specified in the Structure dialog).
In a Browse window, the name of the database appears as the window title. The contents of the database appear in the window.
The Browse window is unique because you can split it into two partitions and examine different parts of your database at the same time. In addition, you can edit field data, delete and append records, move and resize fields, and more.
Whenever a Browse window is frontmost, a Browse menu pad is added to the menu bar.
Browse Menu Popup
The Browse menu contains options for use in the Browse window. Some options are only available when the window is split.
Change
Displays the database in the Browse window in Change mode. The current record in the Browse window appears selected.
In Change mode, the fields in each record are listed one below the other instead of stretching across the window horizontally. If the window is split, only the active partition appears in Change mode when you choose Change.
Change toggles between Change and Browse depending on the mode of the Browse window.
Grid Off
Removes the vertical lines between field data in the Browse window. If the window is split, only the active partition is affected.
The Grid Off option toggles between Grid Off and Grid On depending on the current grid setting.
Unlink Partitions
Displays a vertical scroll bar in both partitions so that you can scroll each partition independently of the other. This option is only enabled when the window is split.When only one scroll bar is displayed, the partitions are linked and will scroll together.
This option toggles between Link Partitions and Unlink Partitions, depending on the current state of the window.
Change Partition
Makes the inactive partition of the split window active, and the active partition inactive. This option is only enabled when the window is split.
Size Field
Selects a field so that you can change its size using the keyboard. If the selected field isn't the one you want to size, Tab to select the appropriate field. Once the desired field is selected, use the Left/Right Arrows to shorten or lengthen the field. When the field is the desired size, press Enter.
When the window is split, field sizing affects both partitions.
Move Field
Selects a field so you can move it to a new location using the keyboard. If the selected field isn't the one you want to move, Tab to the appropriate field. Once the desired field is selected, use the Left/Right Arrows to relocate the field. When it is relocated, press Enter.
When you move a field in one partition of a split window, the same field moves to the same location in the other partition.
Resize Partitions
Activates the window splitter so that you can partition the window or change the size of the existing partitions using the keyboard. You can tell that the window splitter is activated because it flashes. Use the Left/Right Arrows to resize the partitions, then press Enter. The window splitter stops flashing.
Goto...
Displays the Goto dialog so you can position the record pointer on a specific record in the Browse window. FoxPro allows you to position the record pointer at the Top or Bottom record in the database, position on a certain Record number or Skip a certain number of records before positioning the record pointer.
Seek...
Displays the Expression Builder so you can search the active database through an index. Create an expression based on the index key (the field on which your database is indexed), enclosing character strings in single quotes, double quotes or square brackets. If FoxPro finds a matching value in the current index file, the database record appears selected. For Seek... to be enabled, the database you are browsing must be indexed and the index must be open.
Toggle Delete
Places (or removes) a bullet at the beginning of the selected record to mark (or unmark) it for deletion.
Append Record
Adds a blank record to the end of the database.
Window Manipulation
The Browse window can be manipulated in many ways to make it visually appealing to you. The window can be split, and the fields can be resized and rearranged. These changes only apply to the Browse window and do not affect the actual database file.
Example code stored in a memo field
PROCEDURE example
DEFINE WINDOW laser ;
FROM INT((SROW()-22)/2),INT((SCOL()-75)/2) ;
TO INT((SROW()-22)/2)+21,INT((SCOL()-75)/2)+74 ;
TITLE " Laserdisk Library " ;
FLOAT ;
CLOSE ;
SHADOW ;
MINIMIZE ;
COLOR SCHEME 1
#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat
IF SET("TALK") = "ON"
SET TALK OFF
m.talkstat = "ON"
m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS
m.currarea = SELECT()
RETURN*
*
*
06/24/91 LASERM.MPR 07:59:33
*
*
*
*
Wayne Lampel
*
*
Copyright (c) 1991 Fox Software
*
134 W. South Boundary
*
Perrysburg, OH 43551
*
*
Description:
*
This program was automatically generated by GENMENU.
*
*
*
*
*
Setup Code
*
*
push menu _msysmenu
set sysmenu automatic
public skipvar
skipvar = .f.
*
*
*
Menu Definition
*
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _pwk0h4qb5 OF _MSYSMENU PROMPT "\<System" COLOR SCHEME 3 ;
KEY ALT+S, "ALT+S"
DEFINE PAD _pwk0h4qc6 OF _MSYSMENU PROMPT "\<Edit" COLOR SCHEME 3 ;
KEY ALT+E, ""
DEFINE PAD _pwk0h4qcx OF _MSYSMENU PROMPT "\<Database" COLOR SCHEME 3 ;
KEY ALT+D, ""
DEFINE PAD _pwk0h4qdo OF _MSYSMENU PROMPT "E\<nvironment" COLOR SCHEME 3 ;
KEY ALT+N, "ALT+N"
ON SELECTION PAD _pwk0h4qb5 OF _MSYSMENU *
ON SELECTION PAD _pwk0h4qc6 OF _MSYSMENU *
ON SELECTION PAD _pwk0h4qcx OF _MSYSMENU *
ON SELECTION PAD _pwk0h4qdo OF _MSYSMENU *
*
*
*
Cleanup Code & Procedures
*
*
for i = 1 to cntbar('enviro')
do case
case prmbar('enviro',i) = 'Status Bar'
set mark of bar i of enviro to set('status') = 'ON'
case prmbar('enviro',i) = 'Clock'
set mark of bar i of enviro to set('clock') = 'ON'
case prmbar('enviro',i) = 'Extended Video'
set mark of bar i of enviro to srow() > 25
case prmbar('enviro',i) = 'Sticky'
set mark of bar i of enviro to set('sticky') = 'ON'
endcase
endfor
CHECKBOX
PRGNAME
DISABLED
Welcome to FoxPro WELCOME.PRG F Browse BROWSE.PRG F RQBE/SQL RQBESQL.PRG T Report Writer REPOWRIT.PRGF Screen Builder SCREBUIL.PRGT Menu Builder MENUBUIL.PRGT Project Management PROJMANG.PRGF Trace/Debug TRACEDEB.PRGT Text Editing TEXTEDIT.PRGF Distribution Kit DISTRIBU.PRGF API/Library Kit LIBCONST.PRGF
procedure temptrac
parameter dodebug
push key clear
wait window "Escape and function keys are disabled while trace window is opened" timeout 2
_throttle = .10
if dodebug = 1
activate window debug
activate window trace
play macro debugit
suspend
activate window trace
endif
for counter = 1 to 10
testnum1 = counter * 3
looptalk = "This small routine"
looptalk = "demonstrates using"
looptalk = "trace and debug"
testnum2 = counter/2
endfor
release window trace
if dodebug = 1
release window debug
endif
pop key
Settings could not be restored! File does not exist F